MacFormat 1994 November

home *** CD-ROM | disk | FTP | other *** search

/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / Comet.3.0.7 folder / ibm-host-software / FTERR.ASSEMBLE < prev next >

Wrap

Text File | 1992-09-09 | 16.3 KB | 207 lines | [TEXT/MPS ]

FTERR TITLE 'ERROR MESSAGES FOR FT3270' 00010000 ********************************************************************* 00020000 * THIS MODULE PROCESSES ERRORS THAT OCCUR IN FT3270 AND FTCMS. * 00030000 * THE ERROR CODE FROM THE CALLING PROGRAM IS PASSED IN R3. * 00040000 * IF THERE IS AN RC FROM A CMS MACRO, IT IS PASSED IN R2. * 00050000 * * 00060000 * PETER HOYT CORNELL COMPUTER SERVICES * 00070000 * VERSION 2.0 AUGUST 30, 1987 * 00080000 * * 00090000 * SOURCE FILE SEQUENCED FOR FUTURE MAINTANENCE. LARRY CHACE * 00100000 * * 00110000 ********************************************************************* 00120000 FTERR CSECT 00130000 USING FTERR,R12 00140000 STM R14,R12,12(R13) SAVE THE CALLER'S THINGS. 00150000 LR R12,R15 GET OUR BASE ADDRESS. 00160000 ST R13,SAVEAREA+4 SAVE HIS SAVE AREA AND 00170000 LA R13,SAVEAREA GET OURS. 00180000 * 00190000 ST R3,RETCODE DECIDE WHICH CATEGORY OF ERROR 00200000 C R3,=F'40' PARAMETER ERRORS 00210000 BC 4,FTERR9 LESS IS ERROR ERROR 00220000 C R3,=F'50' CMS ERRORS 00230000 BC 4,FTERR1 LESS IS PARM ERROR 00240000 C R3,=F'60' NEGOT & MISC ERRORS 00250000 BC 4,FTERR2 LESS IS CMS ERROR 00260000 C R3,=F'81' NEGOT & PC ERRORS 00270000 BC 4,FTERR3 LESS IS NEGOT ERROR 00280000 B FTERR4 ALL ELSE GOES TO PC ERRORS 00290000 * 00300000 FTERR9 LA R9,PCERR88 00310000 LA R8,PCERR89 00320000 * 00330000 **** PUT OUT ERROR MESSAGE & RETURN WITH A NON-ZERO RETURN CODE 00340000 * 00350000 ADONE SR R8,R9 TO GET LENGTH OF STRING 00360000 WRTERM (R9),(R8) 00370000 L R15,RETCODE GET EVIL RETURN CODE. 00380000 L R13,4(,R13) RESTORE EVERYTHING 00390000 L R14,12(R13) FROM THE CALLER 00400000 LM R0,R12,20(R13) EXCEPT R15! 00410000 BR R14 00420000 PCERR88 DC C'Unable to interpret PC error.' 00430000 PCERR89 DS 0C 00440000 EJECT 00450000 *---------------------------------------------------------------------* 00460000 * PARAMETER ERRORS: RC = 40 THRU 49 * 00470000 *---------------------------------------------------------------------* 00480000 FTERR1 DS 0H 00490000 S R3,=F'40' USE R3 AS INDEX INTO TABLE 00500000 C R3,=F'8' MAKE SURE IN RANGE 00510000 BC 2,FTERR9 00520000 SLL R3,2 EACH ENTRY 4 BYTES 00530000 L R9,PERRLST(R3) 00540000 A R3,=F'4' TO DETERMINE LENGTH 00550000 L R8,PERRLST(R3) 00560000 B ADONE 00570000 * 00580000 PERR0M DC C'Args: DOS filespec, control, CMS fn, ft, fm' 00590000 PERR1M DC C'First byte of 2nd arg must be "D" or "U".' 00600000 PERR2M DC C'Second byte of 2nd arg must be "B", "T", or "D".' 00610000 PERR3M DC C'Third byte of 2nd arg must be "R" or "N".' 00620000 PERR4M DC C'Lrecl must be numeric.' 00630000 PERR5M DC C'Disk not accessed.' 00640000 PERR6M DC C'CMS file already exists.' 00650000 PERR7M DC C'Lrecl must not exceed 65535!' 00660000 PERR8M DC C'Local filespec must contain 1 - 80 characters!' 00670000 PERR99 DS 0C 00680000 PERRLST DC A(PERR0M) 00690000 DC A(PERR1M) 00700000 DC A(PERR2M) 00710000 DC A(PERR3M) 00720000 DC A(PERR4M) 00730000 DC A(PERR5M) 00740000 DC A(PERR6M) 00750000 DC A(PERR7M) 00760000 DC A(PERR8M) 00770000 DC A(PERR99) 00780000 EJECT 00790000 *---------------------------------------------------------------------* 00800000 * CMS ERRORS RC: 50 THRU 59 * 00810000 *---------------------------------------------------------------------* 00820000 FTERR2 DS 0H 00830000 S R3,=F'50' 00840000 BZ NOMEM 00850000 S R3,=F'1' 00860000 BZ TOOBIG 00870000 S R3,=F'1' 00880000 BZ FSSERR 00890000 S R3,=F'1' 00900000 BZ FSRERR 00910000 S R3,=F'1' 00920000 BNZ FTERR9 ERROR OUT OF RANGE 00930000 * 00940000 FSWERR ST R2,RETCODE FSWRITE FAILURE 00950000 LA R9,CMSERR5 RC = 54 00960000 LA R8,CMSERR99 00970000 B ADONE 00980000 NOMEM LA R9,CMSERR0 RC = 50 00990000 LA R8,CMSERR1 01000000 B ADONE 01010000 TOOBIG LA R9,CMSERR1 RC = 51 01020000 LA R8,CMSERR2 01030000 B ADONE 01040000 FSSERR ST R2,RETCODE FSSTATE FAILURE 01050000 C R2,=F'28' RC = 52 01060000 BZ FSSERR1 01070000 LA R9,CMSERR2 01080000 LA R8,CMSERR3 01090000 B ADONE 01100000 FSSERR1 LA R9,CMSERR3 01110000 LA R8,CMSERR4 01120000 B ADONE 01130000 FSRERR ST R2,RETCODE FSREAD FAILURE 01140000 LA R9,CMSERR4 RC = 53 01150000 LA R8,CMSERR5 01160000 B ADONE 01170000 CMSERR0 DC C'Failure to allocate CMS record buffer via DMSFREE.' 01180000 CMSERR1 DC C'Insufficient space on CMS minidisk.' 01190000 CMSERR2 DC C'Improper file specification.' 01200000 CMSERR3 DC C'CMS file not found!' 01210000 CMSERR4 DC C'Error doing FSREAD' 01220000 CMSERR5 DC C'Error doing FSWRITE' 01230000 CMSERR99 DS 0C 01240000 EJECT 01250000 *---------------------------------------------------------------------* 01260000 * NEGOTIATION AND MISCELLANEOUS ERRORS RC: 60 THRU 75 * 01270000 *---------------------------------------------------------------------* 01280000 FTERR3 DS 0H 01290000 S R3,=F'60' USE R3 AS INDEX INTO TABLE 01300000 C R3,=F'7' MAKE SURE IN RANGE 01310000 BC 2,FTERR9 01320000 SLL R3,2 EACH ENTRY 4 BYTES 01330000 L R9,NEGOLST(R3) 01340000 A R3,=F'4' TO DETERMINE LENGTH 01350000 L R8,NEGOLST(R3) 01360000 B ADONE 01370000 * 01380000 NEGERR0M DC C'You must be running TN3270 or C19 on your PC or Mac.' 01390000 NEGERR1M DC C'Improper data format from PC.' 01400000 NEGERR2M DC C'Device I/O error' 01410000 NEGERR3M DC C'User requested break via PA1.' 01420000 NEGERR4M DC C'PC rejects this version of FT3270.' 01430000 NEGERR5M DC C'Ft3270 rejects this version of PC program.' 01440000 NEGERR6M DC C'Invalid checksum in initial packet.' 01450000 NEGERR7M DC C'Internal data error.' 01460000 NEGERR99 DS 0C 01470000 NEGOLST DC A(NEGERR0M) 01480000 DC A(NEGERR1M) 01490000 DC A(NEGERR2M) 01500000 DC A(NEGERR3M) 01510000 DC A(NEGERR4M) 01520000 DC A(NEGERR5M) 01530000 DC A(NEGERR6M) 01540000 DC A(NEGERR7M) 01550000 DC A(NEGERR99) 01560000 EJECT 01570000 *---------------------------------------------------------------------* 01580000 * ERRORS BASED ON RETURN CODE FROM PC RC: 81 THRU 95 * 01590000 *---------------------------------------------------------------------* 01600000 FTERR4 DS 0H 01610000 N R3,=F'95' GET THE ERROR CODE IN RANGE 01620000 C R3,=F'90' 01630000 BC 2,FTERR9 01640000 ST R3,RETCODE GET THE ERROR FROM THE TABLE 01650000 S R3,=F'81' 01660000 BC 4,FTERR9 01670000 SLL R3,2 01680000 L R9,PCERRLST(R3) 01690000 A R3,=F'4' 01700000 L R8,PCERRLST(R3) 01710000 B ADONE 01720000 * 01730000 PCERR1 DC C'PC file already exists.' 01740000 PCERR2 DC C'Cannot determine PC disk space.' 01750000 PCERR3 DC C'Insufficient PC disk space.' 01760000 PCERR4 DC C'Cannot open PC file for write.' 01770000 PCERR5 DC C'PC file not found.' 01780000 PCERR6 DC C'Cannot write to PC file.' 01790000 PCERR7 DC C'Cannot determine length of PC file.' 01800000 PCERR8 DC C'Cannot reposition PC file.' 01810000 PCERR9 DC C'Unable to interpret host datastream.' 01820000 PCERR10 DC C'Host did not respond to PC error.' 01830000 PCERR99 DS 0C 01840000 PCERRLST DC A(PCERR1) 01850000 DC A(PCERR2) 01860000 DC A(PCERR3) 01870000 DC A(PCERR4) 01880000 DC A(PCERR5) 01890000 DC A(PCERR6) 01900000 DC A(PCERR7) 01910000 DC A(PCERR8) 01920000 DC A(PCERR9) 01930000 DC A(PCERR10) 01940000 DC A(PCERR99) 01950000 EJECT 01960000 *---------------------------------------------------------------------* 01970000 * VARIABLE AREA * 01980000 *---------------------------------------------------------------------* 01990000 SAVEAREA DS 18F 02000000 RETCODE DC F'0' SAVE THE RETURN CODE. 02010000 * 02020000 LTORG 02030000 PRINT NOGEN 02040000 REGEQU 02050000 END 02060000